v ttl$ ls
{Generic Counter Up or Down, Input Start, Stop and Step +/-}
p ttl$
p Start?
v start# input
p Stop?
v stop# input
p Step?
v step# input
do
    v testStep# #> step# 0
    if testStep#
        v test# #<= start# stop#
        if test#
            p start#
            v start# + start# step#
        else
            exit
        fi
    else
        v test# #>= start# stop#
        if test#
            p start#
            v start# + start# step#
        else
            exit
        fi
    fi
loop
p done









